home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / ProRen.lha / ProRen / rexx / reverse.rexx
OS/2 REXX Batch file  |  1997-07-08  |  380b  |  34 lines
  1. /* Reverse Script for ProRen 2.0 */
  2.  
  3. ADDRESS PROREN.1
  4.  
  5. OPTIONS RESULTS
  6.  
  7. get searchsign
  8.  oldsign = result
  9. get basename
  10.  oldbase=result
  11. get index
  12.  oldindex=result
  13.  
  14. set searchsign off
  15. set basename '.reverse.'
  16. set index '-99999'
  17.  
  18. mark all
  19. start
  20.  
  21. set index oldindex
  22. set basename oldbasename
  23.  
  24. ret=0
  25. DO UNTIL ret=1
  26.   dirlistready
  27.   ret=result
  28. END
  29.  
  30. mark all
  31. start
  32.  
  33. set searchsign oldsign
  34.